home *** CD-ROM | disk | FTP | other *** search
/ ETO Development Tools 1 / ETO Development Tools 1.iso / Essentials / MacApp Documentation / MacApp AppleLink Messages / MacApp.Tech$ Jun 89 / V0070-Re TEView in Dialog-Jun89 < prev    next >
Encoding:
Text File  |  1989-06-26  |  1.7 KB  |  51 lines  |  [TEXT/GEOL]

  1. Item    9060273                         23-June-89        07:09
  2.  
  3. From:   AU0008                          Kopfwerk EDV SW Entwicklung
  4.  
  5. To:     ITA0102                         ITALSOFT DEV 1 Rov TYBVENRO
  6.  
  7. cc:     MACAPP.TECH$                    MACAPP Tech
  8.  
  9. Sub:    RE-TEView in Dialog
  10.  
  11. To: Stefano Rampazzo
  12.  
  13. Dear Stefano,
  14.  
  15. You donĀ“t bore me with your question but it is good to see that I am not alone
  16. with my problems (what seems to me til now).
  17. I rewrote the workaround that fixes also the problem with the last TEditText
  18. activated. But be carefull - I am currently using MacApp-b8.2 (near b9) and I
  19. have not tested it with b5 (but I think it should work).
  20.  
  21. FUNCTION TTEinDialView.DoMouseCommand(VAR theMouse: Point; VAR Info: EventInfo;
  22.    VAR Hysteresis: Point): TCommand;   OVERRIDE;
  23. VAR   aDialogView  : TDialogView;
  24.  
  25. BEGIN
  26.    if gTarget <> SELF then
  27.    BEGIN
  28.          aDialogView:= TDialogView(GetDialogView);
  29.  
  30.                { Attempt to deselect current edit text }
  31.          aDialogView.DoSelectEditText(NIL, False);
  32.          if (aDialogView.fCurrentEditText = NIL) then
  33.                { Successful only if it was deselected }
  34.        BEGIN
  35.             GetWindow.SetTarget(SELF);
  36.             DoMouseCommand:= INHERITED DoMouseCommand(theMouse, Info, hysteresi
  37.          END ELSE
  38.             DoMouseCommand:= gNoChanges;
  39.    END ELSE
  40.       DoMouseCommand:= INHERITED DoMouseCommand(theMouse, Info, hysteresis);
  41. END;
  42.  
  43. The only one anomaly I have seen is if you do modifications in the TEView and
  44. activate a TEditView, you can still undo the modifications.
  45.  
  46. I hope this helps, and please let me now how things proceed.
  47. Kind Regards, and have a nice weekend,
  48.  
  49. Tommi GESSL, KOPFWERK SW Dev.
  50.  
  51.